home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TP032992.ARJ
/
03-29-92.TPC
Wrap
Text File
|
1992-03-29
|
80KB
|
2,328 lines
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 18:08:23
From Trevor Carlsen
To Thomas Horsten
Subject Hacker Mark Strikes Back
TH> If you want to hack the network, why don't you make a TSR that records
TH> keystrokes to memory? Then just load it on the victims computer in an
TH> unattended moment, and ... The way you're describing is likely to be
TH> discovered by the supervisor -- that is, if s/he is not heavily
TH> mentally retarded!
Promoting illegal activities is not acceptable in this echo. Any future message
such as this will result in your echo access being withdrawn.
If you wish to reply to this do so by netmail only.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/22 21:26:36
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 18:14:58
From Trevor Carlsen
To Jud Mccranie
Subject Re: Reading from a text f
GE> Could you post an example of how to search for certain text
GE> within a text file? Thanks.
JM> Is the file small enough to fit in memory (<64K)? If so then
JM> something like
JM> { untested code!!! }
JM> var line : array [ 1 .. 750] of string[ 80];
The trouble with using a method like this is that it will not work unless
the text files have no lines exceeding 80 characters and the text being searched
for does not span any line. Far better to use an algorithm such as Boyer-Moore
and search the complete file rather than lines.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/22 21:26:36
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 18:28:31
From Trevor Carlsen
To Michael George III
Subject PASCAL and ORDINAL DATA TYPES
MG> I am a seasoned C programmer learning PASCAL for the sake of writing
MG> some BBS utilities for the TAG BBS software. I understand the use of
MG> records, but what I don't understand is the use of RECORDS within
MG> RECORDS...
MG> Filerec = ( {File flags}
MG> NotValidated, {File is not validated}
MG> OwnerRestricted, {Uploader did not receive credit on upload}
MG> uuF6, {Reserved}
MG> uuF5, {Reserved}
MG> uuF4, {Reserved}
MG> uuF3, {Reserved}
MG> uuF2, {Reserved}
MG> uuF1 {Reserved}
MG> ); {1 byte used for 8 flags in set}
MG> FlagRecSet = SET OF Filerec; {Set of file flags}
MG> What I need to understand is how to read/modify the UlfRec.Flag field.
MG> What sort of data type is it? What operations can be performed on it.
MG> How can I set a BIT to either the ON or OFF position?
UlfRec is a type - not a variable. So somewhere there will be a variable
defined as a UlfRec. The type FlagRecSet is a set and it is this that is
being used to set bits.
Let's assume the variable (record) of type UlfRec is called UlfRecVar then
to set bit 0 of UlfRecVar.flag -
UlfRecVar.flag := UlfRecVar.flag + [NotValidated];
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/22 21:26:36
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-23-92 02:12:41
From
To
Subject
--- DB B1061/002070
* Origin: Host 206/0 -=- public image -=- 018-551878 (2:206/0)
* Tossed by SFToss v1.00b on 92/03/23 07:09:28
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 02:36:55
From Mark Ouellet
To Duke Normandin
Subject Re: TurboBBS
On 12 Mar 92, you, Duke Normandin, of 1:134/49.0 wrote...
>> I think he drowned off the coast of some foreign country ;-)
DN> Is this a joke?
What do YOU think ??? ;-)
Best regards,
Mark Ouellet.
P.S. Don't you read the news paper ???
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 02:37:33
From Mark Ouellet
To Tom Przeor
Subject Re: Pkunzip to nul
On 13 Mar 92, you, Tom Przeor, of 3:640/821.0 wrote...
MO>> RH>>Why using a COMMAND environment and not just starting
MO>> RH>>pkunzip by searching for the right path thru fsearch ?
MO>> RH>>EXEC(fexpand(fsearch('PKUNZIP.EXE',getenv('PATH'))), 'test.zip
MO>> RH>> >NUL');
MO>> TP> You need command processor for redirection to work, your method
MO>> is
MO>> TP> fine but '>NUL' won't work.
MO>>OOPS missed that one when I replied to him ;-)
TP> No, you haven't. He just asked why you've used COMMAND.
Exactly Tom,
If you look at the quote you'll notice I wasn't the
one who indicated the need for the Command processor in
order to get redirection. I had missed the '>' sign and
agreed with him that using the fexpand would work. In fact
his comment ie: "Why use command..." was not a question but
rather an indication of his surprise that someone would use
the command processor to execute a program. He missed the
redirection part as I did when I gave him credit for using
Fexpand instead of the GetEnv('COMSPEC') to locate the
executable file.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 02:43:27
From Mark Ouellet
To Jud Mccranie
Subject Re: TP 6.0 IDE memory
On 13 Mar 92, you, Jud Mccranie, of 1:370/520.0 wrote...
MO>> BTW if you can't adapt to the 6.0 IDE, don't despair,
MO>> Borland Pascal++ is just around the corner ;-)
JM> That's what I've heard. I hope they take the users into
JM> consideration this time. They were headed in the wrong direction
JM> w/ 6.0 IDE, IMHO.
Jud,
It is a matter of personnal taste but I guess in a
little while you'll learn to love the 6.0 IDE and probably
KILL anyone who tries to take it away from you ;-)
I have rarely seen Borland make mistakes. In fact
I've pretty much allways been able to predict their moves.
They usually base any novelty on their user's requests. No
company could survive otherwise. I guess with the Windows
version they confused sales reports with actual usage of the
thing. Lot's of people bought it but very few are actualy
using it. In fact I was glad that the Borland representative
that presided the seminar here in Quebec city acknowledge
that fact. They had surveyed the users and promised that
since so many people "Hated windows" (His words, not mine)
that they would continue producing products for the DOS
market.
I sure hope the next IDE still runs from DOS.
And when I multitask I use DesqView, I want the
multitasked programs to grab the power, not the multitasker.
BTW, keep your old messages, when Borland Pascal comes out
you'll probably just have to edit them and replace any
reference of "5.5" with "6.0" and "6.0" with "1.0" or
whatever they number this one. <Verrrrrryyyy big grin>
Then we'll just start the thread over again ;-)
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 03:00:14
From Mark Ouellet
To Ken Koch
Subject Re: Another "Help me"
On 14 Mar 92, you, Ken Koch, of 1:208/2.0 wrote...
KK> John,
KK> Yes. DIR strips out the "."... You can also do this by using
KK> FINDFIRST
KK> & stripping out the 9th character.
Ken,
Actually it's the other way around, DOS adds the '.'
when listing filenames. It just doesn't add it for volume
labels.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 04:10:41
From Mark Ouellet
To James Stanley
Subject Re: Mouse/graphics
On 13 Mar 92, you, James Stanley, of 1:231/440.0 wrote...
JS> Would you happen to use RIME and have an XX3401 encoder so you could
JS> post it here?
JS>
JS> James Stanley
James,
converted source or code files such as those sent
through XX3401 or UUencode or anyother such processor is
forbiden on this echo.
The moderator explicitly included this rule into the
echo's policy list after the idea of using the echo as an
upload/download route was proposed. The traffic is high
enough without cluttering it with such stuff.
BTW if it was permitted then you wouldn't be getting
all those neat Pascal sources. Why bother posting the Source
when you can compile and post the UUencoded TPU.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 04:16:59
From Mark Ouellet
To Greg Smith
Subject Re: Tpascal mags.
On 12 Mar 92, you, Greg Smith, of 1:110/69.0 wrote...
GS> Yo DUDE!!!!!!! Please stop sending me messages I have absolutly no
GS> interest in pascal or whatever the !@$%@*@!!@$#^*$ you are talking
GS> about. On top of that I don't even know who you are.
GS> thanks for the understanding.
GS> Greg smith
Yo Greg,
learn the ways of echo-mail before replying. Jud was
sending a message to "GREG SMITH" ok so... there are
probably hundreds if not thousands of "GREG SMITH" in the
world and this is a world wide conference.
Remember that your BBS can not know WHICH "GREG
SMITH" the message was sent to so it marks it as being for
you since the names match.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 17:39:12
From Mark Ouellet
To Dj Murdoch
Subject Re: TP 6.0 disassembler...
On 16 Mar 92, you, Dj Murdoch, of 1:221/177.40 wrote...
DM> That's 14.4 HST, but I've heard from
DM> Europeans that they have trouble connecting, so watch out that you don't
DM> make a lot of wasted phone calls.
Dj,
Were you by any chance refering to my 150 $Can of
connect attempts to Australia ;-) ?!?
BTW I'll try to contact the sysop of 1:3/1 to route my
NetMail to zone 3 through his node, should allow me to
NetMail TeeCee or any one else in zone 3.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 17:43:58
From Mark Ouellet
To Jud Mccranie
Subject Re: Why I Like Tp 5.5 Ide (continued)
On 17 Mar 92, you, Jud Mccranie, of 1:370/520.0 wrote...
JM> P.S. I just changed the "O" color, and that brought out another major
JM> problem. After I made the change and did "OK" it poped me back into
JM> the editor. I assumed that it had made the change, but NOOOO!!! You
JM> have to exit from the editor again and go over to options and tell it
JM> to save the options. You shouldn't have to do all of that. If you
JM> OKed it, it should save it. Baring that, it should at least keep you
JM> in the options menu.
Jud,
You boviously don't like the way this works but I
prefer to have to TELL the IDE to save the new
configuration. I hate it when a program assumes it is ok to
save any changes unless I tell it to.
I sometimes change just a single flag for my compilation and
want the options to return to their original values when I
exit the IDE and come back the next time.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:41
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 18:17:43
From Mark Ouellet
To Jacob Zielinski
Subject Re: md and dwc archive formats
On 16 Mar 92, you, Jacob Zielinski, of 1:153/9.0 wrote...
JZ> Does anyone know what programs are used to un-archive "md" and
JZ> "dwc"
JZ> files, or what the file formats are?
Jacob,
DWC uses DWC.EXE as for MD files I haven't
encountered them yet.
BTW Where on earth did you find DWC compressed files ????,
I've had the unarchiver for close to a year I think but have
yet to encounter a .dwc file.
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:42
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 18:39:33
From Mark Ouellet
To Joy Mukherjee
Subject Custom caracter sets
Hi Joy,
Just wanted you to know I was interrested in your
postings but unfortunately only message 1 of 4 made it
through here. The three missing messages are not even in my
DUPE section so I guess they got dumped upstream from my
system.
Is there any chance you might repost.??
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:42
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-22-92 23:01:40
From Mark Ouellet
To Joy Mukherjee
Subject Re: Qwk Format/reader 1/3
On 15 Mar 92, you, Joy Mukherjee, of 1:387/255.0 wrote...
JM> {$V-}
JM>
JM> { PROGRAM QWK READER - Written by Joy Mukherjee }
JM> { Donated to the Public Domain }
JM>
JM> Program ReadQWKRepFile;
JM>
JM> uses Crt;
JM>
< STUFF DELETED FOR SPACE >
>>>> Continued to next message
No it didn't
Joy,
this is another example of the problem, 2/3 et 3/3
never made it here. Could you repost please ???
Best regards,
Mark Ouellet.
--- ME2
* Origin: One Beer gets me Drunk.... Usualy the 47th ;-) (Fidonet 1:240/1.4)
* Tossed by SFToss v1.00b on 92/03/22 10:59:42
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-23-92 17:15:44
From Trevor Carlsen
To Dj Murdoch
Subject Variable # parameters
DM> ... Those names are hard coded
DM> into a part of the RTL for which you don't get source...
I'm interested in this explanation you gave re write/writeln/read/readln.
I don't think that this an accurate statement. All the RTL's source for
input/output appears to be in my copy of the RTL.
Admittedly there are no procedures named write/writeln...etc. But that is
because they do not in fact exist! It appears to me that the compiler parses
such statements into their respective parts - WriteFloat, WriteStr, WriteInt,
WriteBool, WriteChar, WriteLine, WriteEnd, WriteFile, ReadFloat, ReadStr,
ReadInt, ReadChar, ReadLine, ReadEnd. (Have I missed any?)
I have not bothered to really examine this closely and you may well correct
me but that is the way it appears to me. It also makes sense to me that it
is done this way.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/22 18:24:16
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-23-92 17:07:43
From Trevor Carlsen
To Dj Murdoch
Subject Re: Exponentiation (was: Are you...)
DM> I think type complex was in the standard. I don't know if anyone is
DM> going to add it to a real compiler, but I'd guess VAX Pascal. They
DM> seem to be the big standard supporters.
I'm just quoting on a job which specifies - DOS is to be version MS-DOS version
5 and the programs are to be written and compiled using ANSI standard Pascal.
Ever heard of such a beast? (The alleged reason for the ANSI standard Pascal
is to allow easy upgrade to OS/2.) Tried talking to the Manager today but
got nowhere... seems he is a civil engineer and a friend has impressed on
him the desirability of sticking to "the standard". When I suggested he may
have meant ISO, he was adamant - it had to be ANSI.
Grrrr... I wish the job was small enough to just say "stick it..." but it
isn't.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/22 18:24:16
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-23-92 19:28:00
From Norbert Igl
To Joseph Crea
Subject INPUT ROUTINE/LIMITED LENGTH--CORRECTION
Hi Joseph, that's a good one !
> DOS.MsDos(regs); (* make DOS function call *)
> for j := 0 to 254 do (* copy to x *)
> x[j] := buffer[j];
... why do you copy only 254 Chars?
... why 254 at all?
try this instead:
move(buffer[0], x[0], BYTE(Buffer[0]));
it's faster, and copies only the # of entered chars..
Bye from Germany, Norbert
---
* Origin: STOP READING! You're leaving the MSG-sector (2:241/5300.3)
* Tossed by SFToss v1.00b on 92/03/24 07:01:54
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 21:00:00
From Werner Berghofer
To Peter Kling
Subject Traffic report
Peter,
> I like it a lot, If it works on hudson style message base
> I would like to make use of it on my echo's that I moderate..
here's the output for this conference from a similar program I wrote
a while back -- of course in Turbo Pascal. It works on a Hudson style message
base and requires no additional configuration if used in a Frontdoor/Tosscan
environment.
----------------------------------------------------------------------
Who writes most messages? "Pascal programming"
first: Tue, 3 Mar 1992; 0:00 last: Mon, 23 Mar 1992; 19:28
----------------------------------------------------------------------
Jud McCranie .............................................. 155 8.5%
Dj Murdoch ................................................ 84 4.6%
Gerald Gutierrez .......................................... 81 4.5%
Ruurd Pels ................................................ 73 4.0%
Trevor Carlsen ............................................ 70 3.9%
/* Lots of lines deleted */
The Admiral ............................................... 2 0.1%
Thomas Groff .............................................. 2 0.1%
Tony Weeks ................................................ 2 0.1%
Wayne Moses ............................................... 2 0.1%
Zak Smith ................................................. 2 0.1%
----------------------------------------------------------------------
----------------------------------------------------------------------
Who receives most messages? "Pascal programming"
first: Tue, 3 Mar 1992; 0:00 last: Mon, 23 Mar 1992; 19:28
----------------------------------------------------------------------
All ....................................................... 184 10.1%
Jud McCranie .............................................. 138 7.6%
Gerald Gutierrez .......................................... 64 3.5%
Dj Murdoch ................................................ 57 3.1%
Trevor Carlsen ............................................ 50 2.8%
/* Lots of lines deleted */
Terry Towle ............................................... 2 0.1%
Thomas Groff .............................................. 2 0.1%
Todd Armstrong ............................................ 2 0.1%
Yvo Van Musscher .......................................... 2 0.1%
Zak Smith ................................................. 2 0.1%
----------------------------------------------------------------------
----------------------------------------------------------------------
Overview of message topics "Pascal programming"
first: Tue, 3 Mar 1992; 0:00 last: Mon, 23 Mar 1992; 19:28
----------------------------------------------------------------------
Turbo Pascal 6.0 IDE ...................................... 53 2.9%
Why I like Turbo Pascal 5.5 IDE more than 6.0 ............. 51 2.8%
Pascal vs. C .............................................. 35 1.9%
New reader! ............................................... 32 1.8%
Pascal structure philosophy ............................... 32 1.8%
/* Lots of lines deleted */
Test ...................................................... 2 0.1%
Turbo Pascal Internal Error ............................... 2 0.1%
Turbo Pascal user groups? ................................. 2 0.1%
Ultraforce Demo ........................................... 2 0.1%
VGA 512 ................................................... 2 0.1%
----------------------------------------------------------------------
messages total ............................................1818
days covered in report .................................... 21
average number of messages per day ........................ 86.6
----------------------------------------------------------------------
Special awards for this review
----------------------------------------------------------------------
* The "Why type it myself?" award goes to Jud McCranie
for "Why I like Turbo Pascal 5.5 IDE more than 6.0",
dated Fri, 20 Mar 1992; 1:48.
An incredible 93.0 percent of this message were quotes.
* The "Keep it short and sweet" award goes to Scott Sanbar
for the message regarding "Test",
dated Mon, 23 Mar 1992; 3:10.
Never was there more said with ten characters.
* The "Nostalgia" award goes to Htraffic V. 1 0
for the message regarding "Traffic Report",
dated Sat, 21 Mar 1992; 8:53.
Not one of those 11188 characters was quoted.
----------------------------------------------------------------------
The ten most active users of this message area
----------------------------------------------------------------------
Jud McCranie ..................... [14.0 messages/day] ... 293 16.1%
Gerald Gutierrez ................. [ 6.9 messages/day] ... 145 8.0%
Dj Murdoch ....................... [ 6.7 messages/day] ... 141 7.8%
Ruurd Pels ....................... [ 5.8 messages/day] ... 121 6.7%
Trevor Carlsen ................... [ 5.7 messages/day] ... 120 6.6%
Richard Morris ................... [ 3.2 messages/day] ... 68 3.7%
Joshua Kersey .................... [ 2.4 messages/day] ... 50 2.8%
Mike Copeland .................... [ 2.2 messages/day] ... 46 2.5%
Mike Krejci ...................... [ 2.1 messages/day] ... 45 2.5%
Kelly Small ...................... [ 2.1 messages/day] ... 44 2.4%
----------------------------------------------------------------------
active participants total ................................. 378
----------------------------------------------------------------------
average message posting frequency per day
----------------------------------------------------------------------
0:00- 1:59 ************************************ 8.3%
2:00- 3:59 ********************* 4.9%
4:00- 5:59 ****** 1.4%
6:00- 7:59 ********************* 4.8%
8:00- 9:59 ***************************************** 9.3%
10:00-11:59 *************************************************** 11.6%
12:00-13:59 ******************************************** 10.1%
14:00-15:59 ********************************************* 10.2%
16:00-17:59 ******************************************* 10.0%
18:00-19:59 ******************************************* 9.8%
20:00-21:59 ****************************************** 9.7%
22:00-23:59 ******************************************* 10.0%
----------------------------------------------------------------------
average message posting frequency per week
----------------------------------------------------------------------
Monday ****************************** 10.2%
Tuesday ************************************** 12.9%
Wednesday ************************************* 12.5%
Thursday ****************************************** 14.3%
Friday ************************************************ 16.3%
Saturday *************************************************** 17.0%
Sunday ************************************************** 16.8%
----------------------------------------------------------------------
Look around for a file called "Qlist150.*", it should be available
also in your zone.
Werner.
---
* Origin: God is real... unless declared integer. (2:310/90.100)
* Tossed by SFToss v1.00b on 92/03/25 07:45:03
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-23-92 19:12:00
From Terry Hughes
To Dj Murdoch
Subject Re: Binary Tree Linked L
DM>Thanks. I think I've heard that before, but I forgot it.
DM>Why don't they just call them Bayer-Trees?
Beats me -- maybe it's too hard to spell.
Based on the excerpts that Jud quoted the definition of B-Tree
we use doesn't seem to be as wide spread as I had thought.
-Terry
* OLX 2.2 * TurboPower Software (voice 719-260-6641)
--- Maximus 2.01wb
* Origin: The Programmers Playhouse (1:128/60)
* Tossed by SFToss v1.00b on 92/03/25 13:09:24
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 13:06:57
From Trevor Carlsen
To Jud Mccranie
Subject Re: Tp 6.0 Ide
TC> You have either misunderstood or chosen to misinterpret what I
TC> have said. It is *essential* in testing any application that
TC> you *do* hit the design limits.
JM> Well, then, testing in the IDE is a good idea, because you will
JM> hit (memory) limits there sooner than w/o the IDE. If you don't
JM> hit the limit in the IDE you won't in DOS (unless the target machine
JM> is really loaded down with TSRs in conv. mem.)
I'm glad it was the first and not the second. :-)
The limits you refer to are a valid test of course but it is of little consolati
n if that limit is reached before the *program's* design limit. It is just
as important to test that as well - often more so, as it is frequently algorithm
dependant.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:24
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 19:43:29
From Trevor Carlsen
To Mark Dixon
Subject Re: Hacking the Network
TC> Take this thread somewhere else. The subject of this conference
MD> My original message was asking for TP routines for Novell network
MD> programming, so I think that it IS in the right place. The other
MD> messages derrived from that
The original thread was perfectly acceptable. The thread that developed with
the above subject is not only off-topic but is illegal in some countries.
I requested you to stop that thread. More by netmail.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:27
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 20:17:04
From Trevor Carlsen
To All
Subject virus
MD> Yes, a virus can be written in Turbo Pascal. Read around some of the
MD> virus descriptions, there are a few around written in TP. One simply
MD> ... Well, thats an idea I had for a virus, it isn't hard to write....
MD> Using TP6 with the FindFirst, FindNext routines it is very easy...
I won't bother everyone with details on this but this thread has just claimed
its second victim. Unfortunately the writer of the above will not be with
us any more and the same will also apply to anyone who wishes to continue
to answer the thread.
If you wish to comment on or reply to this message do so by NETMAIL ONLY.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:27
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 20:30:21
From Trevor Carlsen
To Darren Lyon
Subject Entry to competition
DL> Here is my _first_ entry to your programming competition. ...
Thanks Darren. Unfortunately at this time it is ineligible as you have copyrigh
ed it. If you still wish to have it entered it *must* be placed in the public
domain with no rights reserved.
DL> Has there been much response to the competition?
Not as yet although there have been several indications that entries are forthco
ing before June.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:27
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 21:02:32
From Trevor Carlsen
To All
Subject Off-topic messages
Recently there has been a surge of off-topic messages and of users who are
responding to off-topic messages.
Some of those responding to these messages are those who should know better...
eg. Long time readers and users of the echo.
Please help us maintain the viability of this echo by reducing the signal-noise
ratio and DO NOT ANSWER off-topic messages. I answer most of these messages
by netmail so rest assured they are not being ignored.
Another disturbing development is the number of messages on viruses and network
hacking. I WILL arbitarily cut off echo access to users who continue to ignore
my requests to drop these subjects. Sysops expend a great deal of money,
time and effort in developing their systems for your benefit. They do not
deserve to have all this put at risk by thoughtless, irresponsible users enterin
messages which could give the Federal Police grounds for confiscation of
equipment.
The fact is, rightly or wrongly, that in the USA and Australia (and possibly
other countries also), Federal police DO have these powers of seizure if BBSs
carry advice on committing illegal acts. Please consider this before entering
messages.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:27
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 21:21:18
From Trevor Carlsen
To Devon Ellis
Subject Reading Ansi
DE> The easiest way is to put ANSI.SYS in your autoexec.bat file, then
DE> include DIRECTVIDEO := FALSE somewhere near the begining of the code.
DE> You can then just write the data to the screen and let ANSI.SYS do all
DE> the translating for you.
This is completely incorrect.
ANSI.SYS is a driver that must be loaded via config.sys and setting DirectVideo
to false will have no effect whatsoever on whether the ANSI.SYS driver gets
control.
Either do not use the CRT unit or place the following lines somewhere early
in the program:
assign(output,'');
rewrite(output);
This ensures all output is handled through dos and thus ansi.sys will be used.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:27
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-24-92 21:27:49
From Trevor Carlsen
To Devon Ellis
Subject Screen Save
DE> type
DE> Screenpoint= array[1..2000] of record
DE> character:char;
DE> attribute:byte;
DE> end;
DE>
DE> var point: ^screenpoint;
DE> Newpoint: ^screenpoint;
DE>
DE> and then later on say something like
DE>
DE> if lastmode = mono then point := ptr($B000,0000)
DE> else point := ptr($B800,0000);
DE>
DE> Then if you wish to save it to disk, you can use the command
DE>
DE> BLOCKWRITE(diskfile,point,1); {where diskfile is an untyped
DE> where diskfile is a file of the form DISKFILE:FILE that you have
DE> already assigned and opened and everything. To move the screen to
DE> another location in memory, try
DE>
DE> NEW(Newpoint); {establishes a free spot in memory for data)
DE> MOVE(point,newpoint,4000);
DE>
DE> which should move all 2000 records from one location to the other.
Very dangerous and incorrect advice. When using pointers in this way they
MUST be dereferenced. The best that could happen with your code is that the
machine would lock up, the worst doesn't bear thinking about.
Your idea is perfectly valid of course and is used extensively. Just remember
that pointers MUST be dereferenced when accessing data that they reference
otherwise disaster follows.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/25 13:09:28
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:04:21
From Dj Murdoch
To Jud Mccranie
Subject Re: TP 6 Bad design
JM> No. I ran it from RAM disk. Moreover, there is a timer inside the
JM> program that does the timing in that case, so the program has already
JM> loaded and started running when it sets the time to 0, etc.
It sounds as though you did the timings in a reasonable way, then. I don't
understand at all why you'd observe what you did. I've never observed that
6.0 was slower than 5.5; generally the tests I did put them pretty close,
with a slight edge to 6.0.
Are you using third party libraries? Perhaps the 6.0 versions aren't as good
as the 5.5 libraries.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/26 10:56:00
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:09:56
From Dj Murdoch
To Gerald Gutierrez
Subject Re: C+ vs Turbo Pascal
> If for no other reason than Turbo
> Pascal is much less expensive than Borland C++, though Borland's Turbo
> C++ is also inexpensive. I think, however, that with Turbo Pascal you
GG> Only 800 bucks Canadian last time I checked the paper (
GG> for Borland C++ 3.0 ).. 8(
Order it from the States by mail order: $US469 plus about $40 shipping for
BC++ with AF, from the Connection, 800-336-1166. I've had better luck ordering
from them than direct from Borland: most U.S. companies don't understand
international shipping at all well. I don't know why you'd want to order
a compiler that weighs 18 pounds, though :-).
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/26 10:56:00
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:15:52
From Dj Murdoch
To Jud Mccranie
Subject Re: Variable # parameters
DM> so that
DM> you can just add parentheses to your heart's content
JM> don't remind me of LISP or I may ge BESERK!
Hey, looks like I'm going to have to learn LISP. I was just at a conference
where a very nice experimental statistical package was demo'd - XLISP-STAT.
Trouble is, it's based on LISP. Luckily, it understands DLLs when it's running
under Windows, so I'm hoping to do all the numerical stuff in TPW.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/26 10:56:00
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:26:14
From Dj Murdoch
To Jud Mccranie
Subject Conditionals (was: Why I Like...)
JM>> I sometimes use $IFDEF test, but usually I want to test at that
JM>> location only temporarily. I need to remember to remove it.
TC> Why? That is the whole point of compiler conditionals!
JM> After the bug has been fixed then I no longer need that line(s).
A very good technique (which I generally haven't had the discipline to follow)
is to put "assertions" into conditional sections of your program, and leave
them there. The assertions are things like:
Assert(sizeof(X) = sizeof(Y));
put in just before you use Move to copy X into Y. What this does is to check
your assumptions: if you've made a change to the declaration of X but not
Y, then your Move will probably introduce a bug into your program. The Assert
procedure can be very simple: something like
procedure Assert(assertion:boolean);
begin
if not Assertion then
RunError(199);
end;
would be good enough to point out your error to you, though a fancier version
would tell you where it occurred.
When you're debugging, you just pepper your program with assertions until
one fails, and you've found the bug. But then you can leave them in, and
they'll help you later, if you ever make changes that make one of your assumptio
s faulty.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/26 10:56:00
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:37:09
From Dj Murdoch
To Harald Harms
Subject Re: ATTENTION!!!
HH> As you can see, it's a piece of cake to use! And it
HH> converts to ANY turbo.tpl...!!!!!!!
HH> If you are interested, you can NETMAIL me for details on
HH> how to purchace this product. Please note: This product is NOT shareware
Can't you post the details here? I think this would be of general interest
to a lot of people.
I had one question: what sort of input .TPU can it accept? I couldn't tell
if it was only for converting from TP 6.0 .TPU files from one SYSTEM unit
to another, or if it could do version conversions as well.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/26 10:56:00
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 09:41:30
From Trevor Carlsen
To Frank Masingill
Subject Re: C++ products
FM> I fit that category of being a student of programming and do
FM> emphasize TP, Trevor, but there is another reason I have for learning
FM> some of the rudiments of C and that is simply the joy of the chase and
FM> moreover, I honestly believe that I have discovered some things about
FM> programming in C and Assembler study that help me to understand what
FM> the TP code is doing. This might be more applicable, though, to
FM> somebody like me who is not taking college courses but trying to learn
FM> from written sources of various kinds, books, this echo, etc. Not
FM> being a professional does not (grin) keep one from wanting to "have it
FM> all!!"
And I "dips me lid" to you! The quest for knowledge need not cease just because
one has retired or has no real need for that knowledge. I was not implying
that :-)
BTW - I received your letter - thanks very much for that, I will reply shortly.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/26 23:32:34
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 08:30:29
From Trevor Carlsen
To Gary Elfert
Subject Re: Reading from a text f
-> Download PNL010.* from a BBS near you. It contains an example of a
-> Boyer-Moore search.
GE> Thanks, but I don't think any of the local boards have it. Is there
GE> someone I can FREQ it from? Thanks.
Any PDN node should have it. Others closer to you may be able to help.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/26 23:32:35
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 07:25:21
From Trevor Carlsen
To Eric Gardiner
Subject Reading the screen in TP6
EG> Okay all, this is what I'm trying to do... I need a way to grab the
EG> current screen from within a program and save it to a file. All this
EG> is strictly text, no graphics. I successfully accomplished this
EG> through the BIOS, but I'd prefer something quicker. I know you can
EG> read the screen directly from memory, but when I tried saving it to a
EG> file that way it ended up saving pieces of screens past, a general
EG> mess. Anybody out there have a code fragment that will do this? I
EG> used to be fairly fluent in TP, but I'm a bit rusty, so any and all
EG> help would be appreciated. Thanks!
In text mode this is easy to do. All that is required is that you determine
where the start of video memory is (it is different in mono to what it is
in colour). Here is an example:
First set up some types that can be "mapped" to a screen -
type
VideoCell = record
character: char;
attribute: byte;
end;
VideoScreen = array[1..80,1..25] of VideoCell;
VideoPtr = ^VideoScreen;
var
Screen : VideoPtr;
SavedScreen : VideoScreen;
begin
if LastMode = Mono then
Screen := ptr($b000,0)
else
Screen := ptr($b800,0);
{ To save a screen }
SavedScreen := Screen^;
{ To restore a saved screen }
Screen^ := SavedScreen;
In anything of this nature, the programmer should be aware that with some
older types of graphics cards accessing the video RAM directly in this way
may cause a "snow" effect. This can be countered by only doing accesses between
vertical retraces. As such cards are relatively rare now, most do not bother.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/26 23:32:35
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 07:39:50
From Trevor Carlsen
To Tony Phillips
Subject BlockRead Command
TP> Could someone give me an example of how I would search for information
TP> in an array of records after using a blockread? An example of how to
TP> keep track of the records would also be handy. Any help would surely
TP> be appreciated!
More information needed. What sort of records? What order are they stored
in? What sort of information will you be looking for? Can you detail exactly
how they were read into the array and the declaration of that array?
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/26 23:32:36
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 07:21:01
From Mark Cook
To All
Subject Help!
I am having BIG problems trying to detect Windows in a dos window! Here is
the code:
unit MTKUnit;
interface
type
MTKTYPE = record
installed : boolean;
version_maj,
version_min : byte;
version_str : string[6];
end;
MTKRECTYPE = record
Windows,
DesqView: mtktype;
end;
var
MTK : mtkrectype;
implementation
uses dos;
Procedure CheckWin;
var
tstr : string[2];
regs : registers;
begin
regs.ax := $1600;
Intr($2F,regs);
case regs.al of
$0,$80 : MTK.Windows.Installed := False;
$1,$ff : begin
MTK.Windows.Installed := True;
MTK.Windows.Version_Maj := 2;
MTK.Windows.Version_Min := 0;
MTK.Windows.Version_Str := '2.0';
end;
else begin
MTK.Windows.Installed := True;
MTK.Windows.Version_Maj := lo(regs.ax);
MTK.Windows.Version_Min := hi(regs.ax);
str(MTK.Windows.Version_Maj,MTK.Windows.Version_Str);
str(MTK.Windows.Version_Min,tstr);
MTK.Windows.Version_Str := MTK.Windows.Version_Str+tstr;
end;
end;
end;
begin
CheckWin;
writeln(MTK.Windows.Installed);
writeln(MTK.Windows.Version_Str);
end.
It just says that windows is NOT installed...Trust me, it is. In enhanced
mode, too. RemoteAccess (the BBS program I use) detects 'Windows 3.0' fine...pl
ase help me!
---
* Origin: Wizardry * 300-2400 (303)674-1305 (1:104/630) * HST (1:104/631.0)
* Tossed by SFToss v1.00b on 92/03/26 23:33:11
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-25-92 23:59:25
From Dj Murdoch
To Robert Soubie
Subject Re: Are you listening... ?
> Trust me .... you want it as an OPERATOR!!
RS> Okay, Okay... If it _has_ to be an operator, so do
RS> sinh, cosh, tanh, and the like. Where should this stop?
No, those don't need to be operators, for several reasons. First, standard
mathematical notation doesn't write them as operators. If you want a program
to calculate sinh(4), coding it as
x := sinh(4);
is pretty natural. Compare that to coding 2 cubed as
x := pow(2,3);
or
x := 2^3;
or
x := 2**3;
It seems to me that the latter two are a lot clearer than the first one.
Second, and related to the first argument, all of those special functions
only take a single argument. It's easy to write functions of a single parameter
as functions.
Third, those examples you gave don't need to do any type selection. You'd
always want Sinh(x) to convert x to a floating point type (Real or Extended),
and to return a floating point type. That's not clear with something like
2**3 - should the result be real or integer? (I think it should be integer,
the same way that 2*3 is an integer.)
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 08:59:51
From Dj Murdoch
To Gerald Gutierrez
Subject DIV bug?
GG> Bug #1: ( an obvious known bug, but... ) how would you go about using the
GG> DIV function in basm, while avoiding the Division By Zero error ?
GG> Perhaps I'm just not doing it right -- but I haven't had anyone
GG> correct me on the short code I posted here and there yet, so I
GG> suspect it's the fact that Borland screwed that little part up,
GG> or no one knows asm where I live...
I didn't see your posting. Could you repost sample code illustrating the bug?
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 09:02:52
From Dj Murdoch
To Richard Morris
Subject Re: Are you listening... ?
RM> It would be nice to have operator overloading so we can
RM> create objects (eg: type complex or Matrix) and overload
RM> the standard operators.
I don't agree. Operator overloading can easily confuse you - for example,
there are 3 kinds of matrix products that I know of (element by element multipli
ation, linear map composition, and tensor product); languages that allow you
to multiply matrices seem to alternate pretty freely between the first two
as the meaning of "*". If you have two routines from different units that
use "MatMul" with different meanings, it'll be a lot easier to fix than if
they use "*" with different meanings.
Complex numbers should be included in the base types, we shouldn't have to
define those ourselves.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 09:08:50
From Dj Murdoch
To Greg Williams
Subject Re: Yet another use for streams
GW> Hmm... BTW: Do you happen to know how BIG a stream can go
GW> (ie. maximum size)?
GW> Is it constrained by DOS file size, or by the size of a LONGINT, or what?
GW> I've been looking into SEEKing into a byte-stream (ie. a
GW> binary file) and find the restrictions a bit of a pain!
There's no restriction on the size of a stream that I can think of, but if
you went beyond longint size, all the Seek, GetSize, GetPos etc. methods would
fail.
Why are you finding the Seek restrictions a pain? Do you really have streams
bigger than a longint?
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 09:11:23
From Dj Murdoch
To Jonathon Blake
Subject Re: Obsolete Pascal??
DM>I'd say that Standard Pascal is close to obsolete right DM> now. I would
never DM>use it, nor would I recommend that anyone else use it. DM> Turbo
Pascal, on the
JB> except that there are things that can be done with standard pascal
JB> that can not be done with turbo pascal or borland pascal.
JB> now if turbo pascal implemented get & put
JB> i'd have a better opinion of the language.
TP is not standard compliant, and the file system is one of the ways it fails.
In my opinion, the TP file system is a *better* model of what files are like
than the standard model. Get and Put and file pointers don't match my idea
of files like STDIN and STDOUT; Get and Put are specialized procedures, that
shouldn't be in the general language.
I suspect they're there because Pascal was designed as a teaching language,
and they make it easy to teach about buffering. But they're not the way bufferi
g should really be done.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 17:39:02
From Dj Murdoch
To Clayton O'Neill
Subject Re: Comercial Programs in
-=> Quoting T.j. Laurenzo about Re: Comercial Programs in <=-
TL> How about Turbo Pascal 6 itself??? It says in the manual that the IDE
TL> was written in Pascal!?!? Anyone got an explanation on how they
TL> managed that?
CO> It may have been but the version of TVision that they wrote TP6.0 w/is
CO> not the version that is distributed. For example, there are numerous
CO> bugs in the TEditor object that are not present in the IDE. And so
CO> on....
It's not clear from the documentation, but Borland has stated that the editor
in TP 6 is not TEditor. Other units from TP are included without change in
TURBO.EXE:
DOS
DRIVERS
OVERLAY
SYSTEM
COLORSEL
STDDLG ( with some changes )
DIALOGS
APP
MENUS
VIEWS
HISTLIST
MEMORY
OBJECTS
I think that's all. I didn't get this list from Borland; I obtained it
by comparing the code in the .TPU files with that in the .EXE. STDDLG appears
to be a slightly different version than the one distributed, mostly in the
form of constants having different values.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:13
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 18:15:33
From Dj Murdoch
To Jason Hills
Subject Re: Why I Like Tp 5.5 Ide (c
JH> -- What accounts for the DRASTIC size differences between OPro
JH> programs, and a respective Turbo Vision based one? I expiremented
JH> with a friends copy of OPro for a while (after being WELL grounded
JH> in Turbo Vision, and OOP in general) and I could NEVER get an .exe
JH> out of OPro that as even close the size of the TV one... even tho
JH> both had EXACTLY the same functionality.
I think the main difference is that OPRO is more flexible, and there's no
way to avoid linking in some code that you may never use. If you had exactly
the same functionality, you probably were under-using OPRO.
That's a valid complaint about OPRO: the fact that you can't turn off the
capabilities when you don't need them.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:14
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 18:22:24
From Dj Murdoch
To Jud Mccranie
Subject Re: Power of assemb vs Pascal
JM> an almost-trivial program in Pascal, using recursion. I know
JM> assembler must be able to do recursion, but probably not easily.
JM> It probably requires the programmer to maintain everything. But
JM> the point is that 1. for weeks he never thought of the recursive
JM> solution (and it immediately occurred to me), and 2. Pascal is
JM> probably more powerful in that respect.
Assembler can do recursion just as easily as Pascal can. All you need for
recursion is a concept of local variables; there's no problem setting those
up in assembler.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:14
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-26-92 18:26:32
From Dj Murdoch
To Gerald Gutierrez
Subject Re: Record Const..
GG> Can someone perhaps point out the problem to the follow declaration ?
GG> Const
GG> MainMenu : MenuOptionsType =
Since you didn't give us the MenuOptionsType declaration or any hint as to
why there's a problem, it's not very easy to help you out here.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/27 13:52:14
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 02:38:00
From Werner Berghofer
To Jud McCranie
Subject Why I like Turbo Pascal 5.5 IDE more tha
Jud,
[about SAA/CUA:]
> It makes all programs look pretty much alike and hard to use.
well, after reading for a while in this conference I already got used
to your self-willed, if not to say obstinate, way of thinking and making harsh
statements. However, I wonder if that's really all which you have to say
regarding such an innovative and useful concept like SAA/CUA.
I can't imagine one single computer user which would prefer to learn
let's say four different keystrokes in four different applications performing
just the same task: open a file for example. Using an SAA/CUA application
even if the program is totally unknown everybody knows how to open a file:
Alt-F-O, how to print: Alt-P, or how to quit: Alt-X.
If you think that means "hard to use" and if you also believe that
it is a disadvantage for all programs to "look pretty much alike" -- well,
you obviously never have used an Apple Macintosh. The success of the Mac's
user interface really proves that guys with your opinion belong to a minority.
People use their computers to get their work done faster and easier,
but not to study cryptic, arcane and application-specific keystrokes. It's
absolute nonsens to open files in WordPerfect with different keystrokes than
in Microsoft Word (or whatever).
Welcome to 1992,
Werner.
---
* Origin: God is real... unless declared integer. (2:310/90.100)
* Tossed by SFToss v1.00b on 92/03/27 13:52:28
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 07:20:00
From Werner Berghofer
To David G. Edwards
Subject Why I like Turbo Pascal 5.5 IDE more tha
David,
> Why is "Y" associated with "delete" anyway?
that's part of the now ancient Wordstar keyboard scheme: E-S-D-X was
used for the basic cursor movements up-left-right-down. Keys which are located
in a greater distance from this "diamond" also trigger "stronger" actions
than the keys closer to the diamond.
Examples: Ctrl-S moves one character to the left, Ctrl-A a whole word.
Ctrl-D is one character right, Ctrl-F one word. Ctrl-G deletes a character,
Ctrl-T deletes a single word and Ctrl-Y a whole line. However, this scheme's
logic is based on an U.S. keyboard layout. This scheme was developed back
in The Dark Age as cursor control keys were found seldom on keyboards, but
Wordmaster and later Wordstar were operable on any keyboard.
By the way: it's a funny feeling answering to a message which will
be posted by you tomorrow ;-) Any troubles with your system's clock?
Werner
---
* Origin: God is real... unless declared integer. (2:310/90.100)
* Tossed by SFToss v1.00b on 92/03/27 13:52:28
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 01:13:31
From Trevor Carlsen
To Jim Starke
Subject Input Routine
JS> I have recieved a lot of help from a lot of people via the echo and if
JS> I have missed responding to someone, I am sorry and thanks for all of
JS> your suggestions!
When you ask for assistance in echo mail, thanks for any help received is
automatically assumed. It is "bad form" to thank people individually as it
adds unnecessary costs to the echo. I don't mind seeing a blanket "thank-you"
such as the above quote but the rules specifically ask that individual thank-you
messages be avoided.
Trevor Carlsen
Moderator
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/27 23:27:02
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 19:56:58
From Trevor Carlsen
To Jonathon Blake
Subject Re: Obsolete Pascal??
JB> ...except that there are things that can be done with
JB> standard pascal that can not be done with turbo pascal
JB> or borland pascal.
JB> now if turbo pascal implemented get & put
JB> i'd have a better opinion of the language.
First though a caveat - I've not ever really used standard Pascal. Have you?
I doubt it. "Standard" Pascal - as originally proposed by Niklaus Wirth in
"Pascal User Manual and Report" - is (IMHO) commercially unviable, nor was
it intended to be so. Also to my knowledge there is no compiler available
on the MS-DOS PC platform that is absolutely "standard". This is primarily
because of the foregoing and because no true standard really existed until
recently and even then I believe it may still be only an ANSI draft.
I have seen an ISO standard referred to in advertisements but have never been
able to find any documentation as to what it is! Of course that does not
mean it does not exist! :-)
I believe VAX Pascal might have a compiler directive or warning when non-standar
enhancements are used. Others would know this far better than me.
The ability to use get and put can be obtained by writing them yourself and
placing them in their own unit for future use.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/27 23:27:03
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 08:26:43
From Trevor Carlsen
To Jud Mccranie
Subject Re: Reading from a text f
TC> The trouble with using a method like this is that it will not
TC> work unless the text files have no lines exceeding 80
TC> characters and the text being searched for does not span any
TC> line. Far better to use an algorithm such as Boyer-Moore and
TC> search the complete file rather than lines.
JM> Yes, no, and maybe. It depends on the format of the file (line
JM> length, file size, etc). There are other things to consider too.
JM> For instance, are you going to search through the file once only,
JM> or are you going to make several searches in the same file.
JM> Also, the obvious method is good enough for most real cases...
A great many text files are not produced using TP.
How would you go about finding every reference to yourself in a file - say
the text portion of a Pascal conference message. Your method will not work
infallibly because some reader/editors still comply with the FidoNet standard
that says CR/LFs should be used ONLY to designate end of paragraph and not
EOLN. If your name was more than 255 characters into a paragraph, it would
be missed altogether.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/27 23:27:03
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 08:13:51
From Dj Murdoch
To Albert Ng
Subject Re: giant Const in Pascal
AN> This is an old question but somehow I missed the solution..
AN> I want to declare a constant like this:
AN> CONST
AN> BitMap:ARRAY[1..2000] of BYTE = (1,2,3,4......)
AN> As you see that's will take million years to write this
AN> statment, any suggestion ? it's similar to the SELF-Modify
AN> EXE problem, and converting the
AN> Bitmap into OBJect file and {$L} may help.
AN> may help
If you don't need to be able to edit it, then use BINOBJ and link a binary
copy of the bitmap in directly. If you do need to edit it, write a little
program to read or generate the binary copy, and write out the CONST statement
to a file. It's not hard.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/28 09:11:09
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 08:16:53
From Dj Murdoch
To Cowan Dubose
Subject Re: error 204 invalid pointer operation
CD> In my program when it gets to a line that uses the dispose
CD> procedure it produces error 204 Invalid Pointer
CD> Operation. In the manual it says that this can be caused
CD> if the pointer is nil which I know it isn't because I put
CD> an IF statement before it disposes the pointer that prints
CD> 'nil' if it's nil and 'not nil' if it's not.
It can also happen if the pointer isn't in the heap. If you've somehow assigned
a value to it (either intentionally or not) by some method other than New
or GetMem, you shouldn't Dispose it.
CD> The other thing that can cause this error according to
CD> the manual is "the free list can not be expanded due to a
CD> full free list or to heapPtr being to close to the bottom
CD> of the free list." What does that mean?
Read about the free list. This means that it's full.
--- Msg V3.2
* Origin: Murdoch's Point: Waterloo, Ontario, Canada (1:221/177.40)
* Tossed by SFToss v1.00b on 92/03/28 09:11:09
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 00:34:14
From Trevor Carlsen
To david begley
Subject TP 6 Bad design
db> Don't forget that the command line compiler *sometimes* (due to fewer
db> memory constraints) produces smaller and faster code than the IDE
db> (even when compiling to an .EXE).
Interesting. Are you sure of this, or better still, can you post a demonstratio
of this? I have always thought that the code produced by the IDE compiler
was identical to that produced by the command line version. In fact, I thought
that the "two" compilers were identical except that one was wrapped in a shell.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:31
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 01:38:54
From Trevor Carlsen
To Joy Mukherjee
Subject Re: Qwk Format/reader 1/3
MO> this is another example of the problem, 2/3 et 3/3
MO> never made it here. Could you repost please ???
JB> Same here.. we just got 1/3 also.. *PLEASE* repost, Joy! :)
Joy it appears that some poorly designed mail tossers are incapable of detecting
differences in a subject line that occur after about the first 10-15 characters.
To ensure these do not consign your messages to that large bit bucket in
the sky put the 1/3, 2/3 etc first!
(I just found about this myself!)
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:31
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 09:18:55
From Trevor Carlsen
To Jud Mccranie
Subject Power of assemb vs Pascal
JM> told him I'd write a Pascal proc to do it, and send him the
JM> Pascal source and the exe so he could see how to do it. It was
JM> an almost-trivial program in Pascal, using recursion. I know
JM> assembler must be able to do recursion, but probably not easily.
As assembler is so low-level, recursion is handled by the programmer and the
stack is used. As this is exactly what is happening anyway, it is no different,
and no more difficult, than normal assembler programming.
Your assembly "programmer" friend is obviously not very competent in programming
Programming is not just about writing code, it is also about solving problems
and creativeness.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:31
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 09:34:50
From Trevor Carlsen
To Thomas Roes
Subject Int 8 & disk-operaties
TR> Ik heb in een programma een klokje op het scherm staan (het
This is an English language echo. Please re-read the rules and comply.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:31
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 09:36:40
From Trevor Carlsen
To Frode Lundgren
Subject Re: Text Viewer (1 of 3)
FL> Oh yes, I really loved this one. Just a few seconds of ReWriting and
FL> it works under TP 5.5, my problem is. Where you write
FL> Case Keyword of
FL> Escape : Halt;
FL> I've written
FL> Case KeyWord of
FL> Escape : begin clrscr; halt; end;
FL> But, the screen isn't cleared, why not ?? The DOS PROMPT appears on
FL> 1,2 (x,y), but the screen from the textviewer is still there.. What
FL> have I done wrong ??
The program sets a window size so all that you would be clearing is the main
window, the cursor instructions are all that should remain. To fix, restore
the window size to full screen before the clrscr procedure is used or (better
still) put the window restoration and the clrscr call into the exit procedure.
This may involve some changing of the compiler directives if you are not
using TPro.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 09:42:00
From Trevor Carlsen
To Max Maischein
Subject Reading from a text f
> The trouble with using a method like this is that it will not work
> unless the text files have no lines exceeding 80 characters and
> the text being searched for does not span any line. Far better to
> use an algorithm such as Boyer-Moore and search the complete file
> rather than lines.
MM> But how do you skip the CR/LF sequences in the searched text ??
MM> I assume that you proposed to read a 64K chunk of text in, and then
MM> do a BMSearch. Do you write a procedure like 'GetChar', that delivers
MM> the ( cleaned up ) next char, skipping CR / LFs, 80h 0Ch sequences and
MM> so on ??
Why do you need to skip them? If the text being searched for spans a line
(has a CR/LF sequence imbedded in it), neither method is going to find it.
However the file search using BM is still better and very much faster because
it will find instances in files produced by text editors that only use CR/LFs
to denote paragraph end. It also can be used on binary files.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 09:58:04
From Trevor Carlsen
To Jim Thorpe
Subject M2 - Modula-2
Jim, the subject matter of this conference is Pascal - not Modula-2. Please
take this thread to netmail. The person you addressed this message to will
not see your message anyway as his access to this conference has been withdrawn.
Trevor Carlsen
Moderator.
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 10:08:16
From Trevor Carlsen
To Albert Ng
Subject giant Const in Pascal
AN> I want to declare a constant like this:
AN> CONST
AN> BitMap:ARRAY[1..2000] of BYTE = (1,2,3,4......)
AN> As you see that's will take million years to write this statment...
As a typed constant is really only an initialised variable anyway, just change
BitMap to a variable and initialise it in a loop.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 10:15:27
From Trevor Carlsen
To Cowan Dubose
Subject error 204 invalid pointer operation
CD> In my program when it gets to a line that uses the dispose procedure
CD> it produces error 204 Invalid Pointer Operation. In the manual it
CD> says that this can be caused if the pointer is nil which I know it
CD> isn't because I put an IF statement before it disposes the pointer
CD> that prints 'nil' if it's nil and 'not nil' if it's not.
CD> The other thing that can cause this error according to the manual
CD> is "the free list can not be expanded due to a full free list or to
CD> heapPtr being to close to the bottom of the free list." What does
CD> that mean?
You have come across an error in the TP6 manual. There is no free list in
TP6, it was discontinued when the method of memory management for the heap
was changed in TP6. However if you are using TP4 to 5.x then this is valid.
Assuming that you are not using TP6 and if your program does a lot of allocating
and deallocating of dynamic variables, you may have to rethink your strategy
as regards the disposing of variables. This is a little complex to discuss
in any detail here without knowing more about your problem.
Another thing that may be worth checking is that you have range checking enabled
as a similar effect can be achieved by out-of-bounds writes trashing the ExitPro
and ExitCode initialised variables in the system unit.
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-28-92 10:28:15
From Trevor Carlsen
To Michael George III
Subject HELP! HELP! HELP!
MG> FlagRecSet = SET OF Filerec; {Set of file flags}
MG> { ERROR } s.Flag := Notvalidated;
MG> NOTE THE LINE THAT HAS the {ERROR} before it.. Why doesn't this line
MG> compile? I get an error message that says "DATA TYPES DON'T MATCH"?
s.Flag is defined as a set. NotValidated is a set element and therefore incompa
ible.
Fix:
s.Flag := [NotValidated]; or if it is desired to not alter any of the
other flags in the s.Flag set -
s.Flag := s.Flag + [NotValidated];
TeeCee
--- TC-ED v2.01
* Origin: The Pilbara's Pascal Centre (+61 91 732569) (3:690/644)
* Tossed by SFToss v1.00b on 92/03/28 18:07:32
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 17:00:00
From Norbert Igl
To Jud Mccranie
Subject INPUT ROUTINE/LIMITED LENGTH--CORRECTION
> Hello, Hec
I'm not Hec, sorry ?...
> I am choosing this way to communicate with you this time --- via
> Bluewave, your nearest competitor, to attempt to find out if the beta
> version for the new Xpress door is anywhere near completion yet.
> I would like to be able to carry both doors on my system.
> I am working on getting hooked up with Fidonet so that we may
> communicate more directly with each other in the future.
> Regards, Rich
...and i have no idea what you're talking about ?
??? EchoMail... got it's own rules and ways... ???
Bye from Germany, Norbert
---
* Origin: STOP READING! You're leaving the MSG-sector (2:241/5300.3)
* Tossed by SFToss v1.00b on 92/03/28 22:29:04
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Conference 4
Date 03-27-92 17:25:00
From Norbert Igl
To Gerald Gutierrez
Subject Record Const..
> Can someone perhaps point out the problem to the follow declaration ?
> Const
> MainMenu : MenuOptionsType =
> ( TxtAttr : 7,
> PrefixAttr : 15,
[...]
> 'ASCII Protocol'),
> StartOpt : 1
> );
> This is probably just another stupid mistake, but I don't see
> anything wrong at the moment and as far as I know, that is the method
> by which constants that rule with a record structure are supposed to
> be set up. Thanks for any help !
Hi Gerald,
Constant-Records are defined as follows : ( example )
Type DemoType = Record
First : Byte;
Second : Word;
Third : Array[1..2] of String;
Foutrh : real;
end;
Const
DemoConst : Demotype =
( Frist : 1;
Second: 2;
Third : ('Third-1,'Third-2);
fourth; 3.14 { <-- no ";" here ! ( at my TP6.0 ?) }
);
---
* Origin: Let's talk about hex, baby.... (2:241/5300.3)
* Tossed by SFToss v1.00b on 92/03/28 22:29:04